home *** CD-ROM | disk | FTP | other *** search
- /*
- * TextField autoinit and autoterminate functions
- * for SAS/C 6.50 and up.
- *
- * If you just compile and link this into your app
- * then TextFieldBase will automatically get setup
- * before main() is called. All your app source has
- * to include in order to call TEXTFIELD_GetClass() is the
- * <proto/textfield.h> file.
- */
-
- #include <exec/types.h>
-
- #include <proto/exec.h>
-
- struct Library *TextFieldBase;
-
- int _STI_200_TextFieldInit(void)
- {
- TextFieldBase = OpenLibrary("gadgets/textfield.gadget", 0);
- if (TextFieldBase) {
- return 0;
- } else {
- return 1;
- }
- }
-
- void _STD_200_TextFieldTerm(void)
- {
- CloseLibrary(TextFieldBase);
- TextFieldBase = NULL;
- }
-